home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / source code vol 1.adf / SMALLROUTS / CLEANCOPPER.S next >
Text File  |  1999-09-26  |  945b  |  62 lines
  1. ;ORG $30000
  2. ;LOAD $30000
  3. J:
  4.     MOVE.L    $4,A6
  5.     LEA    GRA_LIB(PC),A1
  6.     JSR    -408(A6)
  7.  
  8.     MOVE.L    D0,A1
  9.     MOVE.L    38(A1),OLDCOPPER
  10.     JSR    -414(A6)
  11.  
  12.     BSR SETUP
  13.  
  14.     LEA $60000,A0
  15.     MOVE.L #$00000C00,D0
  16. LOOP2:    MOVE.L #$00000000,(A0)+
  17.     SUB.L #$00000001,D0
  18.     BNE LOOP2
  19. TMUS:    
  20.     BTST #6,$BFE001
  21.     BNE TMUS
  22. TMUS2:
  23.     MOVE.W  #$000F,$DFF096
  24.     MOVE.L    OLDCOPPER,$DFF080
  25.     TST.W    $DFF088
  26.     MOVE.W    #$4000,$DFF09A
  27.     MOVE.W    #$E02C,$DFF09A
  28.     MOVE.W    #$8020,$DFF096
  29.     CLR.L    D0
  30.     MOVE.L 4,a6        
  31.     JSR -138(a6)
  32.     LEA LIB(pc),a1
  33.     JSR -96(a6)
  34.     MOVE.L d0,a0
  35.     MOVE.L 22(a0),a0
  36.     MOVEQ #$00,d0
  37. ERROR:    RTS
  38.  
  39. LIB:    DC.B 'dos.library',0
  40. GRA_LIB:DC.B 'graphics.library',0,0
  41. EVEN
  42. GFXBASE:DC.L 0
  43. OLDINT3:DC.L 0
  44. OLDCOPPER:
  45.     DC.L 0
  46. COPLIST:
  47.     DC.W $00E0,$0006
  48.     DC.W $00E2,$0000
  49.     DC.W $0100,$1200
  50.     DC.W $0096,$0020
  51.     DC.W $008E,$2C81
  52.     DC.W $0090,$2BC1
  53.     DC.W $0092,$0038
  54.     DC.W $0094,$00D0
  55.     DC.W $0180,$0000
  56.     DC.W $0182,$0FFF
  57.     DC.W $FFFF,$FFFE    
  58. SETUP:    MOVE.L    #COPLIST,$DFF080
  59.     ROXL.W    $DFF088
  60.     MOVE.W    #$8180,$DFF096
  61.     RTS
  62.